object DM: TDM
  OldCreateOrder = False
  Left = 218
  Top = 141
  Height = 515
  Width = 938
  object SQLBanco: TSQLConnection
    ConnectionName = 'sysglobal'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Interbase'
      'Database=localhost:c:/banco/sysglobal.fdb'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=3'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=False')
    VendorLib = 'gds32.dll'
    Connected = True
    Left = 8
    Top = 32
  end
  object SDSCidade: TSQLDataSet
    CommandText = 'select * from "Cidade" order by NOME_CID'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 3
  end
  object DSPCidade: TDataSetProvider
    DataSet = SDSCidade
    Left = 120
    Top = 3
  end
  object CDSCidade: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPCidade'
    Left = 168
    Top = 3
  end
  object SDSCargo: TSQLDataSet
    CommandText = 'select * from "Cargo" order by NOME_CARGO'#13#10
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 47
  end
  object DSPCargo: TDataSetProvider
    DataSet = SDSCargo
    Left = 120
    Top = 47
  end
  object CDSCargo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPCargo'
    Left = 168
    Top = 47
  end
  object SDSComando: TSQLDataSet
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 8
    Top = 104
  end
  object SDSCliente: TSQLDataSet
    CommandText = 
      'select * from "Cliente" '#13#10'where sexo_cli is not null and situaca' +
      'o_cli = '#39'ATIVO'#39' and deletado_cli = '#39'0'#39#13#10'order by NOME_CLI'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 88
  end
  object DSPCliente: TDataSetProvider
    DataSet = SDSCliente
    Left = 120
    Top = 88
  end
  object CDSCliente: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPCliente'
    Left = 168
    Top = 88
  end
  object SDSEmpresa: TSQLDataSet
    CommandText = 'select *  from "Empresa"'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 132
  end
  object DPSEmpresa: TDataSetProvider
    DataSet = SDSEmpresa
    Left = 120
    Top = 132
  end
  object CDSEmpresa: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DPSEmpresa'
    Left = 168
    Top = 132
  end
  object SDSFuncionario: TSQLDataSet
    CommandText = 
      'select *  from "Funcionario" where DELETADO_FUN = '#39'0'#39' order by N' +
      'OME_FUN'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 176
  end
  object DSPFuncionario: TDataSetProvider
    DataSet = SDSFuncionario
    Left = 120
    Top = 176
  end
  object CDSFuncionario: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPFuncionario'
    Left = 168
    Top = 176
  end
  object SDSFornecedor: TSQLDataSet
    CommandText = 
      'select * from "Fornecedor" where DELETADO_FOR = '#39'0'#39' order by NOM' +
      'EFANTASIA_FOR'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 220
  end
  object DSPFornecedor: TDataSetProvider
    DataSet = SDSFornecedor
    Left = 120
    Top = 220
  end
  object CDSFornecedor: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPFornecedor'
    Left = 168
    Top = 220
  end
  object SDSProduto: TSQLDataSet
    CommandText = 
      'select COD_PRO, NOMEFANTASIA_FOR, NOME_MARCA, NOME_GRUPO, DESCRI' +
      'CAO_PRO, QTDE_PRO, PRECOUNITARIOCUSTO_PRO, PRECOUNITARIOVENDA_PR' +
      'O, '#13#10'MARGEMLUCRO_PRO, DATACADASTRO_PRO, SITUACAO_PRO, ESTOQUEMIN' +
      'IMO_PRO, ICMS, "Produto".COD_GRUPO, "Produto".COD_MARCA from "Pr' +
      'oduto"'#13#10'inner join  MARCA on "Produto".COD_MARCA = MARCA.COD_MAR' +
      'CA'#13#10'inner join  "Fornecedor" on "Produto".COD_FOR = "Fornecedor"' +
      '.COD_FOR'#13#10'inner join  GRUPO on "Produto".COD_GRUPO = GRUPO.COD_G' +
      'RUPO'#13#10#13#10'where DELETADO_PRO = '#39'0'#39' and (SITUACAO_PRO = '#39'ATIVO'#39' or ' +
      'SITUACAO_PRO = '#39'EM FALTA'#39' )'#13#10'order by COD_GRUPO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 264
  end
  object DSPProduto: TDataSetProvider
    DataSet = SDSProduto
    Left = 120
    Top = 264
  end
  object CDSProduto: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPProduto'
    Left = 168
    Top = 264
  end
  object SDSGrupo: TSQLDataSet
    CommandText = 
      'select * from GRUPO where DELETADO_GRUPO = '#39'0'#39' order by NOME_GRU' +
      'PO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 308
  end
  object DSPGrupo: TDataSetProvider
    DataSet = SDSGrupo
    Left = 120
    Top = 308
  end
  object CDSGrupo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPGrupo'
    Left = 168
    Top = 308
  end
  object SDSMarca: TSQLDataSet
    CommandText = 'select *  from MARCA order by NOME_MARCA'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 355
  end
  object DSPMarca: TDataSetProvider
    DataSet = SDSMarca
    Left = 120
    Top = 355
  end
  object CDSMarca: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPMarca'
    Left = 168
    Top = 355
  end
  object SDSVenda: TSQLDataSet
    CommandText = 'select * from "Venda" order by DATA_VENDA desc'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 72
    Top = 403
  end
  object DSPVenda: TDataSetProvider
    DataSet = SDSVenda
    Left = 120
    Top = 403
  end
  object CDSVenda: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPVenda'
    Left = 168
    Top = 403
  end
  object SDSItemVenda: TSQLDataSet
    CommandText = 
      'select  "ItemVenda".cod_pro, "ItemVenda".cod_venda, qtde, preco_' +
      'total_produto, desconto_produto, preco_unitario_venda, descricao' +
      '_pro from "ItemVenda"'#13#10'inner join "Produto" on "ItemVenda".cod_p' +
      'ro = "Produto".cod_pro'#13#10'where "ItemVenda".cod_venda = (select (M' +
      'AX(cod_venda)+1) from "Venda" )'#13#10'order by "Produto".descricao_pr' +
      'o'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 3
  end
  object DSPItemVenda: TDataSetProvider
    DataSet = SDSItemVenda
    Left = 321
    Top = 3
  end
  object CDSItemVenda: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPItemVenda'
    Left = 385
    Top = 3
  end
  object SDSCP: TSQLDataSet
    CommandText = 
      'select * from "ItemContaPagar"'#13#10'inner join "EntradaMercadoria" o' +
      'n "ItemContaPagar".COD_COMPRA = "EntradaMercadoria".COD_COMPRA'#13#10 +
      'inner join "Fornecedor" on "EntradaMercadoria".COD_FOR = "Fornec' +
      'edor".COD_FOR'#13#10'order by "Fornecedor".nomefantasia_for'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 99
  end
  object DSPCP: TDataSetProvider
    DataSet = SDSCP
    Left = 321
    Top = 99
  end
  object CDSCP: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPCP'
    Left = 385
    Top = 99
  end
  object SDSParcelas: TSQLDataSet
    CommandText = 'select * from "Parcelas"'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 148
  end
  object DSPParcelas: TDataSetProvider
    DataSet = SDSParcelas
    Left = 321
    Top = 148
  end
  object CDSParcelas: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPParcelas'
    Left = 385
    Top = 148
  end
  object SDSSubGrupo: TSQLDataSet
    CommandText = 'select * from SUB_GRUPO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 49
  end
  object DSPSubGrupo: TDataSetProvider
    DataSet = SDSSubGrupo
    Left = 321
    Top = 49
  end
  object CDSSubGrupo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPSubGrupo'
    Left = 385
    Top = 49
  end
  object SDSItemEntMercad: TSQLDataSet
    CommandText = 
      'select "ItemEntradaMercadoria".cod_compra, "ItemEntradaMercadori' +
      'a".cod_pro, "ItemEntradaMercadoria".precounit_pro,'#13#10'"ItemEntrada' +
      'Mercadoria".qtde_produto, "Produto".cod_pro, "Produto".descricao' +
      '_pro, "Fornecedor".cod_for,'#13#10'"Fornecedor".nomefantasia_for, "Ent' +
      'radaMercadoria".cod_compra, "EntradaMercadoria".data_compra,'#13#10'"E' +
      'ntradaMercadoria".cod_for, "EntradaMercadoria".nota_fiscal, "Pro' +
      'duto".precounitariovenda_pro from "ItemEntradaMercadoria"'#13#10'inner' +
      ' join  "Produto" on "ItemEntradaMercadoria".cod_pro = "Produto".' +
      'cod_pro'#13#10'inner join  "EntradaMercadoria" on "EntradaMercadoria".' +
      'cod_compra = "ItemEntradaMercadoria".cod_compra'#13#10'inner join  "Fo' +
      'rnecedor" on "Fornecedor" .cod_for = "EntradaMercadoria".cod_for' +
      #13#10'where "ItemEntradaMercadoria".cod_compra = (SELECT (MAX(cod_co' +
      'mpra)+1) from "EntradaMercadoria")'#13#10'order by "Produto".descricao' +
      '_pro'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 196
  end
  object DSPItemEntMercad: TDataSetProvider
    DataSet = SDSItemEntMercad
    Left = 321
    Top = 196
  end
  object CDSItemEntMercad: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPItemEntMercad'
    Left = 385
    Top = 196
  end
  object SDSRelVenda: TSQLDataSet
    CommandText = 
      'select "Venda".cod_venda, "Venda".cod_cli, "Venda".cod_fun, "Ven' +
      'da".data_venda, "Venda".precototal_venda, "Funcionario".nome_fun' +
      ', "Cliente".nome_cli,  "Venda".situacao_venda from "Venda"'#13#10'inne' +
      'r join "Funcionario" on "Funcionario".cod_fun = "Venda".cod_fun ' +
      #13#10'inner join "Cliente" on "Cliente".cod_cli = "Venda".cod_cli '#13#10 +
      'order by "Venda".cod_venda'#13#10
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 244
  end
  object DSPRelVenda: TDataSetProvider
    DataSet = SDSRelVenda
    Left = 321
    Top = 244
  end
  object CDSRelVenda: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPRelVenda'
    Left = 385
    Top = 244
  end
  object SDSEntMercadoria: TSQLDataSet
    CommandText = 
      'select * from "EntradaMercadoria"'#13#10'inner join  "Fornecedor" on "' +
      'Fornecedor" .cod_for = "EntradaMercadoria".cod_for '
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 300
  end
  object DSPEntMercadoria: TDataSetProvider
    DataSet = SDSEntMercadoria
    Left = 321
    Top = 300
  end
  object CDSEntMercadoria: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPEntMercadoria'
    Left = 385
    Top = 300
  end
  object SDSItemCP: TSQLDataSet
    CommandText = 
      'select COD_PARCELA as "CodigoParcela", COD_COMPRA as "CodigoComp' +
      'ra", SEQ_PARCELA as "Parcela", DATA_VENCIMENTO as "Vencimento", ' +
      'VALOR_PARCELA as "Valor", SITUACAO_CONTA as "Situacao", DATA_ENT' +
      'RADA as "Data Entrada", DESPESA as "Despesa" from "ItemContaPaga' +
      'r"'#13#10'where "ItemContaPagar".cod_parcela = (select max("ItemContaP' +
      'agar".cod_parcela) from "ItemContaPagar")'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 348
  end
  object DSPItemCP: TDataSetProvider
    DataSet = SDSItemCP
    Left = 321
    Top = 348
  end
  object CDSItemCP: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPItemCP'
    Left = 385
    Top = 348
  end
  object SDSClientePJ: TSQLDataSet
    CommandText = 
      'select * from "Cliente" '#13#10'where "Cliente".SEXO_CLI IS null and s' +
      'ituacao_cli = '#39'ATIVO'#39' and deletado_cli = '#39'0'#39#13#10'order by NOME_CLI'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 256
    Top = 392
  end
  object DPSClientePJ: TDataSetProvider
    DataSet = SDSClientePJ
    Left = 320
    Top = 392
  end
  object CDSClientePJ: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DPSClientePJ'
    Left = 385
    Top = 392
  end
  object SDSRelatorios: TSQLDataSet
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 496
  end
  object DSPRelatorios: TDataSetProvider
    DataSet = SDSRelatorios
    Left = 584
  end
  object CDSRelatorios: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPRelatorios'
    Left = 656
  end
  object SDSProdutoVenda: TSQLDataSet
    CommandText = 
      'select COD_PRO, NOMEFANTASIA_FOR, NOME_MARCA, NOME_GRUPO, DESCRI' +
      'CAO_PRO, QTDE_PRO, PRECOUNITARIOCUSTO_PRO, PRECOUNITARIOVENDA_PR' +
      'O, '#13#10'MARGEMLUCRO_PRO, DATACADASTRO_PRO, SITUACAO_PRO, ESTOQUEMIN' +
      'IMO_PRO, ICMS, "Produto".COD_GRUPO, "Produto".COD_MARCA from "Pr' +
      'oduto"'#13#10'inner join  MARCA on "Produto".COD_MARCA = MARCA.COD_MAR' +
      'CA'#13#10'inner join  "Fornecedor" on "Produto".COD_FOR = "Fornecedor"' +
      '.COD_FOR'#13#10'inner join  GRUPO on "Produto".COD_GRUPO = GRUPO.COD_G' +
      'RUPO'#13#10#13#10'where DELETADO_PRO = '#39'0'#39' and SITUACAO_PRO = '#39'ATIVO'#39#13#10'ord' +
      'er by COD_GRUPO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 496
    Top = 53
  end
  object DSPProdutoVenda: TDataSetProvider
    DataSet = SDSProdutoVenda
    Left = 584
    Top = 53
  end
  object CDSProdutoVenda: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPProdutoVenda'
    Left = 656
    Top = 53
  end
  object SDSClienteVenda: TSQLDataSet
    CommandText = 
      'select * from "Cliente" '#13#10'where deletado_cli = '#39'0'#39#13#10'order by NOM' +
      'E_CLI'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 496
    Top = 112
  end
  object DSPClienteVenda: TDataSetProvider
    DataSet = SDSClienteVenda
    Left = 584
    Top = 112
  end
  object CDSClienteVenda: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPClienteVenda'
    Left = 656
    Top = 112
  end
  object SDSRelContasPagar: TSQLDataSet
    CommandText = 'select * from "ItemContaPagar" order by cod_parcela'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 496
    Top = 160
  end
  object DSPRelContasPagar: TDataSetProvider
    DataSet = SDSRelContasPagar
    Left = 584
    Top = 160
  end
  object CDSRelContasPagar: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPRelContasPagar'
    Left = 656
    Top = 160
  end
  object SDSCR: TSQLDataSet
    CommandText = 'select * from "Parcelas" order by cod_venda'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 496
    Top = 208
  end
  object DSPCR: TDataSetProvider
    DataSet = SDSCR
    Left = 584
    Top = 208
  end
  object CDSCR: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPCR'
    Left = 656
    Top = 208
  end
  object SDSRecParcial: TSQLDataSet
    CommandText = 'select * from "RecebimentoParcial"'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLBanco
    Left = 496
    Top = 256
  end
  object DSPRecParcial: TDataSetProvider
    DataSet = SDSRecParcial
    Left = 584
    Top = 256
  end
  object CDSRecParcial: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    Params = <>
    ProviderName = 'DSPRecParcial'
    Left = 656
    Top = 256
  end
end
